% BEM-LAP-MAT project
% Matlab/Freemat codes
% Copyright 2008 Stephen Kirkup 
% http://www.researchgate.net/profile/Stephen_Kirkup
% University of Central Lancashire
% Issued under the GNU General Public License 2007, see gpl.txt
% www.boundary-element-method.com
% contact: stephen@boundary-element-method.com
% http://www.researchgate.net/profile/Stephen_Kirkup



function [qa,qb] =vertices(n,vertpts,elemvert)
    for (i=1:n)
       elemverta=elemvert(1,i);
       elemvertb=elemvert(2,i);
       qa(i,:)=vertpts(elemverta,:);
       qb(i,:)=vertpts(elemvertb,:);
    end